Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №13

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №13 Лабораторна робота №13. Тема: Робота з даними типу запис. Мета: Вивчення методів опрацювання даних типу запис. Вивчити питання: Запис. Опис типу. Записи з варіантами. Оператор with. Приклади застосування типу запис. Завдання до роботи: Скласти програму на мові Pascal для розв'язування задачі за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 Записати відомості про книги: прізвище автора, назва, рік видання. 1) Знайти назви книг даного автора, які видані після вказаного року. 2) З’ясувати, чи є в переліку книга з даною назвою. Якщо так, то повідомити прізвище автора та рік видання. ХІД РОБОТИ Записати відомості про книги: прізвище автора, назва, рік видання. 1) Знайти назви книг даного автора, які видані після вказаного року. 2) З’ясувати, чи є в переліку книга з даною назвою. Якщо так, то повідомити прізвище автора та рік видання. type book = record autor: string; name: string; year: integer; end; var x: array [1..20] of book; i,m, n: integer; a,b: string; f: boolean; begin Write('Number of books: '); Readln(n); for i := 1 to n do begin Writeln(i, 'Book:'); Write('Autor: '); Readln(x[i].autor); Write('Name: '); Readln(x[i].name); Write('Year: '); Readln(x[i].year); end; Writeln('--------------'); Write('Enter autor for search: '); Readln(a); writeln('Year of publication='); readln(m); f := false; for i := 1 to n do if (x[i].autor = a) and (x[i].year>=m) then begin f := true; Writeln(x[i].name, ', ', x[i].year); end; if f = false then Writeln('Error'); Writeln; Writeln('Availability of books with this name (enter name)'); Readln(b); f:=false; for i:=1 to n do if x[i].name=b then begin F:=true; writeln(x[i].autor,' ',x[i].year); end; if f=False then writeln('Error'); readln; end. //// ВИСНОВОК За допомогою даної лабораторної роботи я навчилася опрацьовувати дані типу запис. Також вивчила методи опрацювання даних типу запис.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини